
Public Class frmCards
    Private myHand4 As Hand

    Private Sub btnDrawCards_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrawCards.Click

        Dim myDeck As New Deck(True, False, False)
        Dim myHand1, myHand2, myHand3 As New Hand

        myHand4 = New Hand

        CardsUtils.ClearCards(Me)

        myDeck.Deal(myHand1, 1)
        myDeck.Deal(myhand2, 2)
        myDeck.Deal(myhand3, 3)
        myDeck.Deal(myhand4, 4)

        myHand1.DrawToForm(Me, 50, 40, True)
        myhand2.DrawToForm(Me, 200, 40)
        myhand3.DrawToForm(Me, 350, 40, False, CardBackColor.Blue)
        myhand4.DrawToForm(Me, 500, 40)

        Application.DoEvents()

        myhand3.Flip(Me)

        Application.DoEvents()
    End Sub

    Private Sub btnFlip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFlip.Click

        Card.Grab(Me, txtFlipCard.Text).Flip()
        'myHand4.GrabCard(Me, txtFlipCard.Text).Flip()
    End Sub
End Class
